#!/usr/bin/perl

# Scan for files with extension .prn
# For each one:
#   Rename as .ps
#   Run program ps2pdf

opendir(THISDIR, ".") or die "Can't open lecture directory\n";

@allfiles = readdir THISDIR;

foreach $file (@allfiles) {
    if ($file =~ /\.prn$/) {
	$file =~ s/\.prn$//;
	print "Executing: mv $file.prn $file.ps\n";
	system "mv $file.prn $file.ps";
	print "Executing: ps2pdf $file.ps\n";
	system "ps2pdf $file.ps";
    }
}