Select Code to Download

 
#!/usr/bin/perl

...
print $expFile qq{$username,$newTime\n};

close( $expFile );

 
#!/usr/bin/perl

...
close( $newExpFile );

move( qq{/etc/ssh/sftp-users.dat.tmp}, qq{/etc/ssh/sftp-users.dat} );