Select Code to Download

#!/usr/bin/suidperl
# running setgid to get access to identity file

...
    user=>$c{user}, 
    identity_file=>$c{identity} );
$scpe->scp("/home/eks/profiles.ini", "/home/www/");