Select Code to Download

my $num = 12000/1000;
my $string = sprintf "%.01f", $num;
print $string, "\n";

use strict;
use warnings;
...
    close STROUT or die "trying: $!\n";
    return $string;
}