sub calltrace {
    my $i=-1;
    print "Caller Trace:\n\n";
    while ( caller(++$i) ) {
        printf("-> %s at line %s\n", (caller($i))[1,2]);
        }
    }
    exit(0);
}