#!/usr/bin/perl -w
use strict;
use File::Spec::Functions qw(rel2abs);
print rel2abs($0);