#!/usr/bin/perl $num1=$ARGV[0]; $num2=$ARGV[1]; if ( @ARGV < 2 ) { print "Number of arguments must be two \n" } elsif ( @ARGV > 2 ) { print "Number of arguments cannot be more than 2 \n" } else { ($num=$num1++); print $num; print "\n"; } unless ($num1=$num2) { print $num2; }