Help for this page

Select Code to Download

Select or download this

my $datafile = '/etc/postfix/virtual';
=pod
...
print FH "$name\@$domain\t$name\n";                          #6
print FH "@rest";                                            #7
close FH or die warn "Error closing $main::FH; $!\n";        #8

Select or download this

#! perl -wspi.bak
BEGIN{
...
         unlink $main::ARGV . $^I
     or    warn "Failed to delete backup $main::ARGV$^I; $!\n"
}