diff --git a/cli/filehandles.pl b/cli/filehandles.pl
new file mode 100644
index 0000000..15372fa
--- /dev/null
+++ b/cli/filehandles.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use IO::File;
+use Data::Dumper;
+
+open(my $fh, '<', 'foo.txt');
+
+my @lines = <$fh>;
+
+print Data::Dumper->Dump([\@lines], [qw(lines)]);
+
+
+open(my $fh, '<', 'foo.txt');
+
+while(my $line = <$fh>) {
+    print $line;
+}
+
+
+my $fh = IO::File->new('foo.txt', 'r');
+
+while(my $line = $fh->getline()) {
+    print $line;
+}
+
+
+my $fh = IO::File->new('foo.txt', 'r');
+my @lines = $fh->getlines();
+
+print @lines;
+print Data::Dumper->Dump([\@lines], [qw(lines)]);
+
+
+1;
+__END__
diff --git a/cli/foo.txt b/cli/foo.txt
new file mode 100644
index 0000000..ec5e80f
--- /dev/null
+++ b/cli/foo.txt
@@ -0,0 +1,6 @@
+these
+runes
+are
+dusty
+sir
+?