Select Code to Download

my $sql = "SELECT * FROM admin WHERE day = ? AND month = ? and year = 
+? AND NUM = ? AND status= ?";
$sql .= " ORDER BY name" if ($order == 2);
...
      print "NAME = ".$pointer->{'name'}."<br />";
   }
}

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