Select Code to Download

     #... at the start of your code ...
     # notice how exception definition and message format
...
     Exception::Copy::Mine->throw(error => $sMsg
                                  , from => 'A.txt'
                                  , to => 'B.txt');

    # the declaration puts the message format string and the
    # class declaration together for the programmer, thus
...

     die "Exception::Mine::Copy"->new(from=>'A.txt');