Este es un script de shell, ¿cómo logro lo mismo en Perl?

prfile=~/sqllib/db2profile

profile()
{
if [ -f $prfile ] && [ "$prfile" != "" ];
then
        . $prfile
else
        read -p "Enter a valid Profile : " prfile
        profile
fi
}
profile

Aquí verifica el archivo de perfil, si lo encuentra lo ejecuta con. $prfile de lo contrario, nuevamente le pide al usuario el archivo de perfil adecuado

Actualizar

#!/usr/bin/perl
use strict;
use warnings;

my $profile = "$ENV{'HOME'}/sqllib/db2proile";
# default profile

while (not -e $profile) { # until we find an existing file
  print "Enter a valid profile: ";
  chomp($profile = <>); # read a new profile
}

qx(. $profile);

Esto funciono Quiero que el directorio de inicio sea dinámico en lugar de codificado, ya que difieren para diferentes máquinas. Solo estoy tratando de lograr con Perl lo que he logrado con shell.