#!/usr/bin/perl
use strict; use warnings; use diagnostics;
my $self = bless({"My Mind" => " of ", "ST8" => "One"},"Mankind");
my @keys = sort(keys(%$self));my ($time, $place) = reverse(@keys);
print STDERR $self->{$time}.$time.$self->{$place}. $place ."\n";
print STDOUT $self->{$time}.$time.$self->{$place}.ref($self)."\n";
OneST8 of My Mind
|
|---|