#!/usr/bin/perl

use strict;
use warnings;

my $opt_f = './output.txt';

if ($opt_f ne ''){
   open(STDOUT, ">> $opt_f");
}

print "Start Arquive Mode\n";
print "Hello Perl Monks !\n";
print "End Arquive Mode\n";
[download]

Originally posted as a Categorized Answer.