#file1 is in  "d:/test.pm"                                 
sub uvaraj                                                 
{
$name='ramu';
print 'uvaraj is a good boy in nature but...';
}