Select Code to Download

system ("su -l - $user -c \'$action > DBlist.txt && cat DBlist.txt\'")
+;

system ("su -l - MyRealuser -c \'$action > DBlist.txt && cat DBlist.tx
+t\'");

print ">>>$user<<<\n";

>>>some_username<<<

>>>some_username
<<<

chomp(my $user = $line);

while(my $exec_line = <EXEC>) {
    ...
...
        ...
    }
}