view release on metacpan or  search on metacpan

bin/log_tail_mirror.pl  view on Meta::CPAN

# remote path for gnu tail
my $tail = "/usr/local/bin/tail";
my $ssh = "/usr/bin/ssh";

#
#_* Main
#

my $usage = "$0 <server> <remote path> <local path>";

my ( $server, $remote_path, $local_path ) = ( @ARGV );
unless ( $local_path ) {
    die $usage;
}

# open local file for writing
print "Writing output to $local_path\n";
open(my $local_fh, ">", $local_path)
    or die "Couldn't open $local_path for writing: $!\n";

# disable buffering to $local_fh