Select Code to Download

#!/usr/bin/perl
use strict;
...
    my $intensity = $data->{intensity};
    printf "weight: %4d intensity: %d Filename: %s\n",$weight,$intensi
+ty,$filename;
}