#!/usr/bin/perl

use strict;
use warnings;

my $message = "EX! TERM! I! NATE!";

if (@ARGV > 0)
{
    $message = $ARGV[0];
}

dalek($message);

sub dalek
{
    my $message = shift;

    print << "ENDOFDALEK";
             __
            )o (--o     $message
            """"===--(
           |::|:\\
           |::|::\\
           ========

ENDOFDALEK

}
[download]