It seems there is a small error in the code by soonix. The Net::SFTP::Foreign documentation says that ->get takes the local name of the file as second parameter and the rest are options. So if you want to display the progress, you'll also have to provide the local name, for example like this:

...
use File::Basename;
my $local_name= basename( $REM_FILE );
warn "Saving '$REM_FILE' to '$local_name'";
$sftp->get($REM_FILE, $local_name, callback => \&show_progress)
...
[download]

This is actually two replies in one. First, thanks (and ++) to Corion for pointing out the mistake in my solution above.

Now Bindo, your question for a solution without CPAN... I think doing SFTP in pure Perl, while possible, would be difficult and error-prone. If you just don't want any additional CPAN modules, that's another question:

As far as I see, your $REM_FILE already is a file name without directory, so you don't need the basename function and module, and can simply

$sftp->get($REM_FILE, $REM_FILE, callback => \&show_progress)
[download]

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?