#! perl
use Cwd 'abs_path';
use Data::Dumper;
use File::Spec;
my $inter;
$inter = "Cwd->abs_path(F:testpl.cmd)";
print "\ninter=",$inter,"\n";
print "\ninter=",Dumper($inter),"\n";
my @inter;
@inter=("\nCwd->abs_path(F:testpl.cmd)        = ", Cwd->abs_path('F:testpl.cmd'),"\n");
print "\n\inter=",Dumper(@inter),"\n";
print "\nCwd->abs_path(F:testpl.cmd)        = ", Cwd->abs_path('F:testpl.cmd'),"\n";
print "\nCwd->abs_path(G:testpl.cmd)        = ", Cwd->abs_path('G:testpl.cmd'),"\n";
print "\nCwd->abs_path(H:testpl.cmd)        = ", Cwd->abs_path('H:testpl.cmd'),"\n";
print "\nCwd->abs_path(testpl.cmd)          = ", Cwd->abs_path('testpl.cmd'),"\n";
print "\nCwd->abs_path(\\testpl.cmd)         = ", Cwd->abs_path('\testpl.cmd'),"\n";
print "\nCwd->abs_path(\\\\server\\testpl.cmd) = ", Cwd->abs_path('\\server\testpl.cmd');
print "\n";

print "\nFile::Spec->rel2abs(F:testpl.cmd)         = ", File::Spec->rel2abs('F:testpl.cmd');
print "\nFile::Spec->rel2abs(G:testpl.cmd)         = ", File::Spec->rel2abs('G:testpl.cmd');
print "\nFile::Spec->rel2abs(H:testpl.cmd)         = ", File::Spec->rel2abs('H:testpl.cmd');
print "\nFile::Spec->rel2abs(testpl.cmd)           = ", File::Spec->rel2abs('testpl.cmd');
print "\nFile::Spec->rel2abs(\\testpl.cmd)          = ", File::Spec->rel2abs('\testpl.cmd');
print "\nFile::Spec->rel2abs(\\\\server\\testpl.cmd)  = ", File::Spec->rel2abs('\\server\testpl.cmd');
