oops.pl

package commands;
use strict;
use warnings;
use constant now => 'now';
use overload 'neg' => sub { return $_[0] };

BEGIN {
    *CORE::GLOBAL::shutdown = sub(@) {
        return ('shutdown', @{$_[0]});
    }
}

sub sudo(@) {
    exec 'sudo', @_;
}

sub h($) {
    bless ['-h', @_];
}

sudo shutdown -h now