Help for this page

Select Code to Download


  1. or download this
    open(FW_LOG, $firewall_log)
    or die "$firewall_log open() failed: $!";
open(MYNEWFILE, ">>$my_new_log:")
...
}
close(FW_LOG) or die "$firewall_log close() failed: $!";
close(MYNEWFILE) or die "$my_new_log close() failed: $!";
  2. or download this
    #!/usr/bin/perl
#Variables
$firewall_log = "/home/jwilliams/firewall.txt";
...
}
close(FW_LOG) or die "$firewall_log close() failed: $!";
close(MYNEWFILE) or die "$my_new_log close() failed: $!";