#!/usr/bin/perl -w
#
use strict ;
#
sub get_login_env {
  local %ENV;
  my $shell = shift || (getpwuid($<))[8];
  my $env = `echo env | perl -e 'exec {"$shell"} -sh'`;
  if (wantarray) {
     my @pieces = ($env =~ m/^(.*?)=((?:[^\n\\]|\\.|\\\n)*)/gm);
    s/\\(.)/$1/g foreach @pieces;
    return @pieces;
  }
  else {
    return $env;
  }
}
#
###############################################################
#                  Set up variables                           #
###############################################################
#
my $ftpfile  = 'mailtest.pl' ;
my $out_file = 'ronniesrubbish' ;
my $result   = 0 ;
my $key      = undef ;
my $value    = undef ;
#
print "\n\t\t<***** xxrcenv Starts *****>\n" ;
#
%ENV = (%ENV, get_login_env());
#
while (($key, $value) = each (%ENV)) {
   print "\n\tKey :: $key" ;
   print "\n\tValue :: $value" ;
}
#
print "\n" ;
#
use lib '/home/interface/sectran/lib' ;
#use lib "$ENV{SECTRAN_DIR}/lib" ;
foreach (@INC) {
   print "\t$_\n" ;
}