@echo off
rem This is a simple implementation of touch.  It starts out as a cmd file
rem and switches to perl.
rem
rem This script is provided for convenience and is not supported in any way
rem by Object Computing, Inc.
rem
rem Author: Chad Elliott
rem   Date: 4/14/2005
rem

perl -x %~f0 %*
goto exit

#!/usr/bin/perl

use strict;
use File::Basename;

if ($#ARGV == -1) {
  print "Usage: ", basename($0), " [file]\n";
  exit(0);
}

my($file) = shift;
open(FH, ">$file");
close(FH);

my($exit) = '
:exit
rem ';