my $username = getlogin || getpwuid($<) || "veeru";
 print $username;