From 3de050a116aad94619628c2a3b329514d6b719ee Mon Sep 17 00:00:00 2001
From: terminalforlife <terminalforlife@yahoo.com>
Date: Mon, 9 Nov 2020 19:35:18 +0000
Subject: [PATCH] Add read() example to perl file

---
 sheets/perl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/sheets/perl b/sheets/perl
index d4b180c..5874a59 100644
--- a/sheets/perl
+++ b/sheets/perl
@@ -48,3 +48,13 @@ perl -ne '/^$ARGV[0]::$</ and print(STDERR "WARNING: User has an empty password.
 
 # Display the current user's UID and GID in a format ideal for chmod(1).
 perl -e 'print("$<:" . (split(" ", $)))[0] . "\n")'
+
+# Permissions allowing, output the first 512 bytes of an MBR storage device, -
+# where the partition table should be stored, using Perl's read() function.
+#
+# Note that the 2-argument style open() should not be used unless the file is
+# static; no chance of changing to something potentially problematic.
+#
+# You might spot some printable strings, such as 'LILO' or 'GRUB', if you've
+# also stored your bootloader on the MBR of the storage device (non-UEFI).
+perl -e 'open(my $FH, "</dev/sda"); read($FH, my $Data, 512); close($FH); print("$Data\n")'