sub main:: (&) {
    bless $_[0];
}