Select Code to Download

open (EXT, "LDB_EXTID.lst") or die "something";
my @uids = <EXT>; # read in each line as a member of the array
...
    last if ++$counter > 10;
}
# stuff you'd do after the loop, if anything

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'