#!/usr/bin/perl

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

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

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