#!/usr/local/bin/perl

# nes file を固定名のファイルへコピーし、タイトル名やファイルサイズを
# 別ファイルに書き出す。

sub usage {
    print "Usage: $0 nes_title_name nes_file_name.nes\n";
    exit -1;
}

# 引数 2 個 じゃなきゃ エラー
usage() if ($#ARGV != 1);

#if (!-r $ARGV[1]) {
#    die "$ARGV[1]: can't open for input\n";
#}

#@nes_stat = stat($ARGV[1]);
#$nes_size = $nes_stat[7];

# cp 失敗したら エラー
system("cp $ARGV[1] nes.bin") && die;

system("echo $ARGV[0] > nes.title") && die;