#!/usr/bin/perl default(); sub default { }