my $timestamp = timestamp_of( $innerfile );
my $tarname = crypt( $innerfile, $innerfile ) . ".tar";
$tarname = substr( $tarname, 2 );
system( 'tar $tarname cvf $innerfile' );
touch( $tar, $timestamp );