$pidfile =~ s/\.pl//;