#!/usr/bin/perl

BEGIN {
   open STDERR, ">>/portal/test.log";
}

use Data::Dumper;
use Getopt::Std;

printf STDERR "%s %s Hello World!\n", scalar localtime;

##</code><code>##

 
443 stream tcp nowait portal /portal/bin/testportal.pl

##</code><code>##

# pp --version
PAR Packager, version 1.008 (PAR version 1.002)
#pp -o testportal testportal.pl