Write a script in perl that performs a post processing action:

The run time environment of the script has the following environment variables available when the script is fired
• TYPE: This can either be 'session' or 'file'. It indicates if transfer event
is a file or session event
• FILE: The file being transferred
• DIRECTION: This can be 'recv' or 'send'. Relative to the script, is the
file being sent or received.
• STARTSTOP: This can be 'start' or 'stop'. Specifies if we are at the start
or end of a file or session transfer event.
• STATE: Either 'success', 'failed', or 'started'
You can assume that the script will be automatically executed on the following
events (TYPE=session and STARTSTOP=start; TYPE=session and
STARTSTOP=stop; TYPE=file and STARSTOP=start;TYPE=file and
STARTSTOP=stop):
Write a script that checks if the transfer session was successful, and if the
direction of the transfer is sending, logs the event details and the current date
to a text log file (location and name to your choosing).