Help for this page

Select Code to Download


  1. or download this
    use strict;
use File::Copy;
...
copy("$status_file","/tmp/foo");
print "finished copy, waiting....\n";
sleep 10;
  2. or download this
    % ./test.pl
getting lock...
...
            copying file...
            finished copy, waiting...
            %
  3. or download this
    % ./test.pl
getting lock...
...
            copying file...
            finished copy, waiting...
%            %