use Device::Webcam;     # pity this on doesn't exist
my $wc = Device::Webcam->init('/dev/video/0', '800x600');
my $jpeg = $wc->capture( format => 'jpeg' );