#! /usr/bin/perl -w
print "The command line parameters are @ARGV\n";
my $arg1 = shift;
my $arg2 = shift;

sub func
{
    print "The parameters are @_\n";
    my $arg = shift ;
    print "The parameters are now @_\n";
    print "$arg\n";
}
print "The command line parameters are @ARGV\n";
print "\$arg1 is $arg1, \$arg2 is $arg2\n";
func( 'parameter to func' );