or download this
/usr/bin/perl -le '@ARGV=qw(this that more less);pop;shift;print join
+"<>", @ARGV;'
that<>more
...
Type of arg 1 to push must be array (not constant item) at -e line 1,
+near ""X";"
/usr/bin/perl -le '@ARGV=qw(this that more less);pop;shift;unshift "X
+";print join "<>", @ARGV;'
Type of arg 1 to unshift must be array (not constant item) at -e line
+1, near ""X";"