Scipt showing use of perl command

echo print '@' symbol 10 times:-
perl -e 'print "@\n" x 10;'
echo
echo concatenate two words:-
perl -e '$x="meenakshi "; $y="sharma"; print( $x.$y."\n");'
echo
echo Show first three lines of file database
perl -ne 'print if($.<4)' database




Output:-

print @ symbol 10 times:-
@
@
@
@
@
@
@
@
@
@

concatenate two words:-
meenakshi sharma

Show first three lines of file database
Name |Age |salary |contact no.
Meenu |23 |40000 |7206297384
jyoti |20 |35000 |9813456782