http://qs321.pair.com?node_id=36157

monk2b has asked for the wisdom of the Perl Monks concerning the following question:

The first perl scripts that I wrote started out:
print "Enter blah blah blah\n"; $device_id = <STDIN>;
Which was okay because I didn't have very many devices to keep track of.Then I learned:
$device_id = shift(@ARGV);
And this was much better ,I could call the script and input the argument at the same time.I now have even more devices and I need to automate the process even more.Can someone point out a better way to do this.What I need to do is read from a file where each line will contain 10 digits and nothing else. Then I will place each 10 digit number in as an argument.I hope I have explained my question well enough Thanks in adance for all of the help

monk2b