#!/usr/bin/perl -w use strict; use WWW::Mechanize; printf("foo\n");