These are few perl code samples.