Select Code to Download

use IO::Handle;
my $filename = '/path/to/file';
...
print FILE '.';    # Ouput one (arbitrary) byte
my $counter= tell(FILE);
close FILE;