Select Code to Download

#!/usr/bin/perl
use strict;
...
my $code = getstore($url, "$file");

print "CODE : $code\n";