perl -MO=Deparse,-p temp.pl
($prefix = 'test');
($runid = 12);
use File::Glob ();
unlink((glob("$prefix$runid.*") || print("Error removing files $!\n"))
+);
temp.pl syntax OK
[download]