#! /usr/bin/perl
use strict;
use warnings;

sub p1 {
	my $n1;
	$n1=@_;
	print "1. Parameters to the sub p1 $n1\n";
	my $p1=shift;
	print "2. p1=$p1\n";
}
p1 $ARGV[0];