#!/usr/bin/perl

# usage
# ./script warn_level critical_level

use strict;
use warnings;
use LWP::Simple;
my ($WARNING_LOW,$CRITICAL_LOW) = @ARGV;

sub state {
my ($msg,$status) = @_;
print $msg; exit $status;
}

my $url = “http://www.marketwatch.com/m/quotes/INDU”;
my $content = get($url) or die $!;
if ($content =~ m/lasttrade number\”\>\$(\w,\w{3})\.\w{2}/){
my $dj = $1; $dj =~ s/[,.]//;
($dj < $WARNING_LOW) ? ($dj < $CRITICAL_LOW) ? state("Critical: $dj", "2") : state("Warning: $dj","1") : state("OK: $dj","0") ;
} else {
print "Unknown problem…" ; exit 4;
}