generic Perl stuff

get_files.pl

# print files in current dir, by date
my @files = sort { -M $a <=> -M $b } grep { ! -d } glob "./*";
print "files by modified date:\n";
print "\t$_\n" for @files;

is_numeric.pl

# match valid number
($ARGV[0] =~ /^(\d+\.?\d*|\.\d+)$/) ? print "number\n" : print "not number\n";

slurp_file.pl

# short way to slurp the contents of a file
open my $fh, '<', $ARGV[0]; 
my $slurp = do { local $/; <$fh> };
close $fh;
print $slurp;