#!/usr/bin/perl -w use warnings; $n1=$ARGV[0]; $n2=$ARGV[1]; print "$n1\n"; print "$n2\n";