#!/bin/sh
script=${1+"$@"}
src=$$.pas
obj=$$.o
bin=$$
perl -nle 'print if 1<$. || !/^#!/' $script > /tmp/$src
cd /tmp
fpc $src 1>&2 && ./$bin
rm $src $bin $obj