$list = do $file; die $@ if $@;