my $parfile = shift;
open( PAR, $parfile );
$_ = <>;
my ( $ip, $user, $passwd, $remotepath, $remotefilename, $localfilename ) = split;
close PAR;
unlink $parfile;  # why wait for the C code to do this?
...