use IO::All;
my $file = shift || die "Give me the file, man!\n";
print io($file)->backwards->getline;