#!/usr/bin/perl -w
use strict;

use Tk;
# use Tk qw( exit );    # Also produces same error.

exit main( @ARGV );

sub main {
    # This part doesn't matter
}