Augmenter: use warnings

[nonametv.git] / tools / de / nonametv-update-mark

#!/usr/bin/perl -w

use strict;

use Net::Domain qw/hostname/;

print hostname() . "\n";
print time() . "\n";
print scalar( localtime( time ) ) . "\n";