Это сценарий оболочки. Как мне сделать то же самое в Perl?

prfile=~/sqllib/db2profile

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

Здесь он проверяет файл профиля, если найден, он выполняет его с. $prfile иначе он снова спрашивает пользователя о правильном файле профиля

Обновить

#!/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);

Это сработало. Я хочу, чтобы домашний каталог был динамическим, а не жестко закодированным, поскольку они различаются для разных машин. Я просто пытаюсь достичь с помощью Perl того, чего я достиг с помощью shell.