package Comparator;

sub new { bless $_[1], $_[0] }
sub comparator {
    # Some stuff here
}