$ perl -d -e 42
<DB1>  use File::Copy
<DB2>  q

$