UNIX for Dummies Questions & Answers

Hi guys,
I am converting a bash script to perl. I need lots of help and pointers on how to make the script work. Any help would be greatly appreciated. Here is what I have:
#!/usr/bin/perl
#Decrypt Files
$dir = "/usr/bin/gpg;
opendir(PGP_DIR, $dir) || die "can't opendir $dir: $!";
@pgp_files = grep { /pgp$/ && -f "$dir/$_" } readdir(PGP_DIR);
closedir(PGP_DIR);

for my $pgp_file (@pgp_files) {
my @output = `usr/bin/gpg --passphrase-fd 0 $pgp_file < .sunspot`;


#Move Decrypted files to pgps/End of Month Folder

move("pgp_file", "pgps/20080531") || die "move failed: $!";

#Change directory to txt
chdir "$idtdata/txts" || die "Can't change to $idtdata/txts: $!\n";

#Move text files
mv../*.txt .;

#Remove Database files
rmdir loadfile.seq;

#Update text files

$some_dir = " "
opendir(TXT_DIR, $dir) || die "can't opendir $some_dir: $!";
@txt_files = grep { /txt$/ && -f "$some_dir/$_" } readdir(TXT_DIR);
closedir(TXT_DIR);

for my $txt_file (@txt_files){
my @output = `./cvnidtf.pl $txt_file`
`curl -u mydriveasswd --disable-epsv -T loadfile.seq ftp://11.1.11.1`
`mysql -u tdrive -h 11.1.11.1 -ppasswd < ldinsdocs.sql`;


#Move Updated text files to hold in Beginning of the month folder
move("txt_files", "hold/20080501") || die "move failed: $!";

Can you please tell us what exactly is not working?

By the way, I'm curious that if the script is full of shell commands like that, why make the switch to Perl? Frankly, what you have looks more like shell script, rather than Perl.

Moreover, isn't 'move' specific function of File:Copy perl module or it's already builtin ?

the program started out as shell and now my supervisor wants it converted to shell for whatever reason when we do a lot of bash shell scripting.