Select Code to Download

#!/usr/bin/env perl 
use strict;
...
  }

print "Amount: $amount\nBase: $base_value\nTotal: $total_value\nRaw: $
+raw_value\n";