use File::Spec;
my $file_path=File::Spec->catfile('E:','test','picture.jpg');
print "File Path $file_path\n";