#!/usr/bin/perl

use warnings;
use strict;

use IO::Socket;
my $sock = new IO::Socket::INET (
                LocalHost => 'localhost',
                LocalPort => '3000',
                Proto => 'tcp',
                Listen => 1,
                Reuse => 1,
);

system("lsof -p $$");
system('lsof -p $$');