#!/bin/ksh

USERNAME=`perl <<PERL
    use MyUtils::Database qw(ReadResource); 
    my %db_info;
    &ReadResource("\\\$ENV{RCFILE}", 
                  "REPORT", 
                  \%db_info); 
    print "\\\$db_info{USERNAME}";
PERL`

echo "USERNAME is $USERNAME"