--- /dev/null
+#!/usr/bin/perl
+
+# Copyright (C) Jeremiah C. Foster 2009, based on:
+
+# Lintian -- Debian package checker
+# Copyright (C) 1998 Christian Schwarz and Richard Braakman
+
+# This program is free software. It is distributed under the terms of
+# the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any
+# later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, you can find it on the World Wide
+# Web at http://www.gnu.org/copyleft/gpl.html, or write to the Free
+# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
+# MA 02110-1301, USA.
+
+=head1 NAME
+
+maemian - Maemo package checker
+
+=head1 EXAMPLE
+
+maemian -i file.dsc
+
+=cut
+
+use strict;
+use warnings;
+use Getopt::Long;
+use Carp;
+
+# --- Command line options
+my $inputfile; # --- A file passed to maemian
+GetOptions ("inputfile|i=s" => \$inputfile);
+
+if ($inputfile && -x $inputfile) {
+ print "$inputfile\n";
+} else {
+ croak "Have you specified an input file?\n $!\n";
+}
+
-<DOCTYPE HTML>
-<html><body>
+<!DOCTYPE HTML>
+<head>
<title>Maemian</title>
+ <meta name="keywords" content="Web site for Maemian" />
+ <meta name="author" content="jeremiah foster" />
+ <meta name="copyright" content="Jeremiah Foster 2009" />
+ <meta name="license" content="Copyright (c) 2009 JEREMIAH FOSTER" />
+<body>
Hello and welcome to Maemian, the policy checker for Maemo.
</body></html>