#!/usr/bin/sh
cd dir_where_perl_pgm_exists
perl my_perl_pgm.pl

ret=$?
if [ $ret -eq 0 ]
then 
    echo "Success"
    echo "FTP the report now"
    ftp -n << EOF
    open ftp_server
    user user_name password 
    put some_file
    ls -l
    bye
    EOF
else
    echo "Failure"
    echo "Exit the pgm"
    return $ret
fi