Биллинговая система Nodeny

my $cmd = join('', '/bin/echo "User-Name=', $user_name, ',Session-Timeout=1" | radclient -q ', $user_nas, ':3799 coa password');
 my $pid = fork();
 if ($pid == 0)
 {
         exec($cmd)
             or die "could not exec my_program: $!";
 }
 elsif (!defined($pid))
 {
         die "could not fork";
 }