#!/usr/bin/perl
$ENV{PATH}="/bin:/usr/ucb";
my $uid = $<;
my $euid = $>;
print "\n$uid $euid\n";
mkdir "/home/private/database/mydir", 0777;

print "\n$uid $euid\n";