#!/usr/bin/perl
use File::Spec

$filename= $0;
$abs_path = File::Spec->rel2abs($filename);
print "$abs_path\n";
$filename = File::Spec->abs2rel($abs_path);
print "$filename\n";