Select Code to Download

#! /usr/local/bin/perl

...
# display message
my $out = sprintf("Disk space on $dir == %0.2f\n",$df_free);
print $out;