Appologies gentlemen that I was away. Well thank you everyone who have shared the thoughts towards my query. Mr Soonix no luck sir. Following is exactly what I tried, No progress is shown when I downloaded file :(.

print "Connecting to the sftp share! Please wait....!\n";
                my $sftp = Net::SFTP::Foreign->new($LOG_HOST, user => 
+$REM_USER, password => $REM_PASSW);
                $sftp->setcwd($REM_PATH) or die "unable to change cwd:
+ " . $sftp->error;
                print "OK. On the share! Downloading the file \"$REM_F
+ILE\"...................!\n\n\n";
                $sftp->error and die "Problem connecting to the share.
+..!!!! " . $sftp->error;
#               if ($sftp->get($REM_FILE)){
                if ($sftp->get($REM_FILE, $REM_FILE, callback => \&sho
+w_progress)) {
                        print "File \"$REM_FILE\" downlaoded to ===>  
+\"$LOC_PATH$LOC_DIR\"\n\n";
                }
                else {
                        print "File \"$REM_FILE\" does not seem to hav
+e been sent. Please re-request...!\n\n";
                }


sub show_progress {
        my($sftp, $data, $offset, $size) = @_;
        print "downloaded $offset of $size bytes\r";
[download]

But the files are transferred and the other print statements are executed?

If I understand Net::SFTP::Foreign correctly, the callback function should be executed at least once per call to ->get.

Maybe it is overwritten too quickly - what if you remove the \r or replace it with \n?

Thanks again Mr Soonix. Yes sir files get downloaded with no problems. Will try what you suggested too and let you know. I think there is a problem with the net:sftp foreign with regard to it's call back feature. May be that is the reason I couldnt find a single person on the net who has gotten it to work.