my $sql = "SELECT * FROM admin WHERE day = ? AND month = ? and year = ? AND NUM = ? AND status= ?";
$sql .= " ORDER BY name" if ($order == 2);

$sth = $dbh->prepare($sql) || die $dbh->errstr;
my $rv = $sth->execute($d, $m_num, $y, $num, '2') || die $sth->errstr;
if($rv && ($rv ne '0E0')){
   while(my $pointer = $sth->fetchrow_hashref()){
      print "NAME = ".$pointer->{'name'}."<br />";
   }
}

##</code><code>##

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