#!/usr/bin/perl

BEGIN {$^W=1}
use strict;

my $filename = shift or die "Please specify the name of a file in the camera/ directory.\n";
$filename =~ s#^.*/##;
$filename = "/home/interiot/public_html/pictures/camera/$filename";
-e $filename or die "'$filename' does not exist.\n";