Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  unlink($outfile) || die "Cannont delete old file.\n";
  rename("tmp.file", $outfile) || die "Cannot rename file\n";
}

insert called:0
first   second  third   1
...
1       2       3       1
x       y       z       1
        2