Select Code to Download

#!/usr/bin/perl -w
use strict;

...
  { warn "raw data is in $TMP\n"; }
else
  { unlink $TMP; }