Send Attribute Using Script

[christian at wanxp.com]

Dear,

i am just planning to upgrade Freeradius to v2 , but i got my perl didnt 
send any atrribute , it worked fine in v1, is there any idea what wrong 
with my script in freeradius2 ?

#!/usr/bin/perl
#

     if ($lefttime <= 0)
     {
         print "Reply-Message=\"Your account has expired\"";
         exit 1;
     }
     else
     {
         print "Session-Timeout=" . $lefttime . ", ";
     }