#!perl -l

@ARGV = '@ARGV';
@_ = '@_';

print '$ARGV[0] = ', shift;

mysub(@_);

sub mysub {
  print '$_[0] = ', shift;
}