Select Code to Download

my $arg;
if(defined $status) {
...

$sth = $dbh->prepare($statement) or die "Cannot Prepare $DBI::errstr";
$sth->execute($arg) or die "Cannot execute $DBI::errstr";