Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 22 lines (17 sloc) 370 Bytes
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use VHS;
my $file = shift || '';
open(my $fh, ">>/tmp/luke") or die "Can't open /tmp/luke: $!";
print $fh "Taking picture to '$file'\n";
close $fh;
if ($file) {
else {
my $uri = VHS->take_picture(shift);
print "Took picture: $uri\n";