#!/bin/sh
script=${1+"$@"}
src=$$.cbl
bin=$$
perl -nle 'print if 1<$. || !/^#!/' $script > /tmp/$src
cd /tmp
cobc -x $src && ./$bin
rm $src $bin