use strict;

my ($file1,$file2) = @ARGV;

do_first($file1);
do_second($file1);

sub do_first {
   my $file = shift;
   open(FH,$file) or die "can't open $file: $!";
   print while <FH>;
}

sub do_second {
   my $file = shift;
   open(FH,$file) or die "can't open $file: $!";
   my @lines = <FH>;
   print reverse @lines;
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)