#!/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"