#!/usr/bin/env perl

use strict;
use warnings;

my $val = 'TMTOWTDI';
print "$val\n";