JPG to PDF automation

jpgtopdf

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';
use Path::Tiny;
use File::Basename;


foreach my $jpg (path(".")->children(qr/\.jpg$/)) {
	my $pdf  = fileparse($jpg, 'jpg') . 'pdf';
	my @cmd = ('sips', '-s', 'format', 'pdf', $jpg, '--out', "pdf/$pdf");
	say join(' ', @cmd);
	system(@cmd);
}