Sindbad~EG File Manager

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;
    }
}