#!/usr/local/bin/perl -w

# SCCS ID: %Z% %P% %I% %E%

=pod

Perl version for wraplogin ksh script

Modification history
miking 09/15/97 created.

=cut

# Play nice
use strict;

# Standard packages
use LogCarp;

open(LOG,">foo.log");
#open(BUG,">foo.bug");
open(ERR,">foo.err");

logout \*LOG;
debugout \*LOG;
carpout \*ERR;

DEBUGLEVEL 2;
debug "Some DEBUG schtuff";
log   "Some LOG   schtuff";
warn  "Some ERROR schtuff";

LogCarp::lock \*ERR;
sleep 60;
LogCarp::unlock \*ERR;


trace "Some TRACE schtuff";

die;