use Language::BF;
print Language::BF->new_from_file(shift)->as_perl