#!/usr/bin/perl

my $time = -e $ARGV[0] ? (stat $ARGV[0])[9] : time;

system '/usr/bin/pico', $ARGV[0];

utime $time, $time, $ARGV[0];