#!/usr/bin/perl
$arg = shift || 'a.out';
