????
Current Path : /proc/self/root/proc/self/root/proc/self/root/proc/self/root/opt/cpanel/ea-nodejs22/ |
Current File : //proc/self/root/proc/self/root/proc/self/root/proc/self/root/opt/cpanel/ea-nodejs22/remove_pwsh.pl |
use strict; use warnings; my @files = split (/\n/, `find . -type f -print`); foreach my $file (@files) { my $first_line = `head -n 1 $file`; if ($first_line =~ m/env\s+pwsh/) { print "Removing file $file\n"; unlink $file; } }