perl -e '$fn=shift @ARGV;open FN, $fn;print while (<FN>);print "\nInput :";print <STDIN>;' num.txt