#! perl -slw
use strict;

$" = eval qq["$ARGV[ 0 ]"];
my @a = 1 .. 10;

print "@a";

__END__
P:\test>test.pl \t
1       2       3       4       5       6       7       8       9       10