выполнять команды неполучиться, так как в
open(INPUT, "<$file");
определено что открывается файл на чтение символом "<"
если бы было
open(INPUT, "$file");
то можно было бы подставив пайп выполнять команды, типа
.pl?file=|id