사용자에 대한 프로세스 종료 [닫기]

chomp $choice;
if ($choice == 5) {
   print "**********************************\n";
   print " Enter the User Name\n";
   $user_name = <STDN>;

   sub kill_processes {
      $user_name = <STDN> ;
      @process_list = `ps -u $user_name| awk ' { print $2 ;} ' `;
      print @process_list;
      print "Are you sure you want to kill all of these processes? (Y|N) >";
      $resp = <STDIN> ;
      chomp $resp;
      if ( $resp eq "Y" || $resp eq 'y' ) {
         foreach (@process_list) {
            if ( ! /PID/ ) {
               @process = split / /, $_;
               print "Killing Process $process[1]\n";
               `kill -09 $process[1]`;
            }
         }
      }
   }



}

이것은 내가 작동할 수 없는 코드의 일부일 뿐입니다. 옵션 5를 선택하면 모든 것이 잘 작동하지만 사용자 이름을 입력하면 아무 작업도 수행되지 않습니다. 어떻게 작동하게 할 수 있나요?