Select Code to Download

use warnings;
use strict;
...
print $contents;

unlink "foo.txt";

use warnings;
use strict;
...
$sftp->get($file, \*STDOUT) or die "get failed: " . $sftp->error;

warn $contents;