Obtener el directorio actual

Use el módulo Cwd:

    use Cwd;
    my $dir = getcwd;

    use Cwd 'abs_path';
    my $abs_path = abs_path($file);