Select Code to Download

use strict;

...
                # immediately
        }
) or die "Cannot connect to database: $DBI::errstr";

#!/usr/bin/perl

...
        }
...
...