BEGIN {
    my $m = "File::Spec::Functions";
    eval "use $m;"
}
print catfile qw(a b c);