my $a = &fix_path();
print "source variable AFTER fix_path $a\n";



sub fix_path{
        return "abcd";
}