#!/usr/bin/perl -wT
#use strict;
use LWP::UserAgent; 
use HTTP::Request;

my $URL = 'https://web.plattsburgh.edu/php-bin/catalog/crs.php?q=CSC';

my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30); 
my $header = HTTP::Request->new(GET => $URL); 
my $request = HTTP::Request->new('GET', $URL, $header); 
my $response = $agent->request($request);

# Check the outcome of the response 
if ($response->is_success){ 
print "URL:$URL\nHeaders:\n"; 
print $response->headers_as_string; 
print "\nContent:\n"; 
print $response->as_string; 
}elsif ($response->is_error){ 
print "Error:$URL\n"; 
print $response->error_as_HTML; 
}

exit;
#--

#!/usr/bin/perl -wT
use strict;
use CGI qw(:standard);
#use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
# To prevent security problems comment out CGI::Carp once this software ready. 
use LWP::Simple 'get';

#print header;

my $URL = 'https://web.plattsburgh.edu/php-bin/catalog/crs.php?q=csc';
#'http://www.plattsburgh.edu/php-bin/catalog/crs.php?q=csc';
my $content = get('https://web.plattsburgh.edu/academics/programs.php');
die "Couldn't get $URL" unless defined $content;

print $content;
exit;

if ($content =~ /CSC Courses(.*)Search the College Course Catalog/s) {
   my $title = "CSC Course Descriptions";
   print start_html( -title => $title, -style => {-src => '../../styles.css'});
   print h1($title);
   print "\n";
   print '<div id="courses">';
   $content = $1;
   $content =~ s#<h4>(.*?)</h4>.*?<p>(.*?)</p>#<b>$1</b>$2<br /><br />#sg;
   $content =~ s#</h3|<h2>##sg;
   print $content;
   print '</div>';
   # print '<div style="page-break-after:always"></div>';
   print end_html();
} else {
   print $content;
}