#!/usr/bin/perl

use strict;
use warnings;

delete @ENV{qw(ENV BASH_ENV IFS PATH)};  # make safe!

sub main {
    # Code
    1;
}

main();

1;

__DATA__

__END__