#!/usr/bin/perl
use strict;
use warnings;
print "Content-type:text/html\n\n";
print "USB test";
print "";
my $mounted = `df -h | grep /dev/sda1`;
if ($mounted eq '') {
print 'USB device not connected
';
print $mounted;
}
else {
print 'Device is connected
';
}
print '';