source: trunk/tp-perl/filespec.pl

#!/bin/env perl

use File::Spec;

print File::Spec->catfile(
    $ENV{HOME}, '.bashrc'
) . "\n";