#!/bin/perl 
use Cwd;
use English;
use Sys::Hostname;
use locale;
use strict;
#use warnings;
use Time::Local;
use Data::Dumper;
use Scalar::Util qw(tainted);

$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin";
$ENV{SHELL} = "/bin/sh" if exists $ENV{SHELL};
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer