Select Code to Download

#!/usr/bin/perl

use strict;
...
  if ($error != 2) { $counter++; } else { last; }
}
if ($counter == 2) { die $error; } else { unlink $filename.".tar.gz"; 
+}