#!/usr/bin/perl

# this script simply grabs command line input
# called  by other scripts to get user data

my($save_file);
$save_file = $ARGV[0];
open (MYFILE, ">$save_file");

print "  (ctrl-d on a free line when you are done)\n";

while($line=<STDIN>) {
        chomp($line);
        print MYFILE "$line\n";
        }

close (MYFILE);