1#!/usr/bin/perl
2
3use Cwd;
4
5$cwd = getcwd;
6
7$file = $cwd . '/' . $ARGV[0];
8$file2 = $file;
9$file2 =~ s/mports/ports/;
10
11system("diff", $file, $file2);
12