#!/usr/bin/perl use diagnostics; use strict; use warnings; use A; A::mach();