Perl one-liners

Reverse input (separated by spaces):
/usr/bin/perl -e "print join(" ", reverse @ARGV);" 1 2 3 4 5