Select Code to Download

use strict;
use File::Spec;
...
print "path not present : $_\n";
} 
}

the output is :
path present : /home/madam
path not present : ~/madam