Select Code to Download

    use strict ;
    use warnings ;
...
    my $input = new IO::File "<file1.txt.bz2" or die "Cannot open 'fil
+e1.txt.bz2': $!\n" ;
    my $buffer ;
    bunzip2 $input => \$buffer or die "bunzip2 failed: $Bunzip2Error\n
+";

    use strict ;
    use warnings ;
...
        # do something
    }