C:/>perl -w -MMath::Trig try.pl
Name "main::old" used only once: possible typo at try.pl line 6.
try.pl = []
Use of uninitialized value in print at try.pl line 6.
C:/>cat try.pl
local $" = q{], [};
local $| = 1;

print "$0 = [@ARGV]\n";

print $old[1];
C:/>