#!/usr/bin/perl

#===============================================================================
#     REVISION:  $Id: test1.pl 35 2011-02-20 14:33:05Z xdr.box $
#  DESCRIPTION:  Some violations
#===============================================================================

#use strict;
use warnings;

our $VERSION = '1.0';

sub { print $_[0] }

sub main {
    return;
}

main();