Cleaned up check a little more

scripts/check

@@ -5,11 +5,7 @@ use warnings;
 use Perl::Critic;
 my $level;
 
-if (!defined $ARGV[0])
-{
-  print "usage: $0 <file> [level]\n";
-  exit 0;
-}
+print "Usage: $0 <file> [level]\n" and exit 0 if !defined $ARGV[0];
 
 if (!-e $ARGV[0])
 {
@@ -29,11 +25,7 @@ else {
 my $critic = Perl::Critic->new(-severity => $level);
 my @violations = $critic->critique($ARGV[0]);
 
-if (!defined $violations[0])
-{
-  print "$ARGV[0] passed (no violations)\n";
-  exit 0;
-}
+print "$ARGV[0] passed (no violations)\n" and exit 0 if !defined $violations[0];
 
 print "Violations:\n";
 my $count = 0;