Select Code to Download

map{$_ && s/\s.*//} $server,$user,$passwd,$dbconn,$dbuser,$dbpasswd,$s
+hpath;

s/\s.*// foreach ($server,$user,$passwd,$dbconn,$dbuser,$dbpasswd);
$shpath =~ s/\s+.*// if $shpath;