#!/usr/bin/perl -w
                                                                                
use File::Basename;
use strict;
use warnings;
use diagnostics;
                                                                                
my $pid=$$;
                                                                                
my $name=basename($0);
                                                                                
my $pidfile="/var/tmp/" . $name . "." . $pid;
                                                                                
printf "I'm going to use: %s\n",$pidfile;