#!/bin/sh

for i in *.pl
do
  perl $i
  mv test.swf `echo $i | sed 's/\.pl/\.swf/'`
done