if (exists $ENV{HOME}) {
   $file = "$ENV{HOME}/.profile" ;

   if (! -x $file) {
     print "\n\tUnable to execute the $file from the current user!\n" ;
     print "\n\tInsufficient permissions!\n" ;
     $result = 99 ;
   }
   else
   {
     open INP,"<$file" or die "\n\tfitz yer gem min?" ;
     while (<INP>) {
       print $_
     }
     close INP or die "\n\tA canny dee it min!\n" ;
#
     print "\n\tRunning $file.\n" ; 
     $result = system "$file" ;
     print "\n\tResult set to $result\n" ;
   }
#
}
else
{
   print "\n\tNo profile file found!\n" ;
   $result = 98 ;
}